home *** CD-ROM | disk | FTP | other *** search
Text File | 1995-12-30 | 28.9 KB | 1,346 lines |
- object LogicEval: TLogicEval
- Left = 210
- Top = 165
- BorderStyle = bsDialog
- Caption = 'Logic Function Evaluation'
- ClientHeight = 413
- ClientWidth = 492
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- PixelsPerInch = 96
- OnCreate = FormCreate
- TextHeight = 16
- object Screens: TTabbedNotebook
- Left = 0
- Top = 0
- Width = 493
- Height = 413
- PageIndex = 2
- TabFont.Color = clBtnText
- TabFont.Height = -13
- TabFont.Name = 'MS Sans Serif'
- TabFont.Style = []
- TabOrder = 0
- OnChange = ScreensChange
- object TTabPage
- Left = 5
- Top = 29
- Caption = 'Create'
- object ba00: TLabel
- Left = 32
- Top = 58
- Width = 19
- Height = 14
- Caption = 'B'#39'A'#39
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ba01: TLabel
- Left = 58
- Top = 58
- Width = 17
- Height = 14
- Caption = 'B'#39'A'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ba10: TLabel
- Left = 83
- Top = 58
- Width = 17
- Height = 14
- Caption = 'BA'#39
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ba11: TLabel
- Left = 109
- Top = 58
- Width = 15
- Height = 14
- Caption = 'BA'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object dc00: TLabel
- Left = 6
- Top = 83
- Width = 18
- Height = 14
- Caption = 'D'#39'C'#39
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object DC01: TLabel
- Left = 6
- Top = 109
- Width = 16
- Height = 14
- Caption = 'D'#39'C'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object DC10: TLabel
- Left = 6
- Top = 134
- Width = 16
- Height = 14
- Caption = 'DC'#39
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object RBrace1: TLabel
- Left = 134
- Top = 64
- Width = 32
- Height = 107
- Caption = '}'
- Font.Color = clBlack
- Font.Height = -96
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ClkLbl1: TLabel
- Left = 173
- Top = 115
- Width = 44
- Height = 16
- Caption = 'Clk = 0'
- end
- object RBrace2: TLabel
- Left = 134
- Top = 179
- Width = 32
- Height = 107
- Caption = '}'
- Font.Color = clBlack
- Font.Height = -96
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object ClkLbl2: TLabel
- Left = 173
- Top = 230
- Width = 44
- Height = 16
- Caption = 'Clk = 1'
- end
- object DC11: TLabel
- Left = 6
- Top = 160
- Width = 14
- Height = 14
- Caption = 'DC'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object dc211: TLabel
- Left = 6
- Top = 275
- Width = 14
- Height = 14
- Caption = 'DC'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object dc210: TLabel
- Left = 6
- Top = 250
- Width = 16
- Height = 14
- Caption = 'DC'#39
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object dc201: TLabel
- Left = 6
- Top = 224
- Width = 16
- Height = 14
- Caption = 'D'#39'C'
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object dc200: TLabel
- Left = 6
- Top = 198
- Width = 18
- Height = 14
- Caption = 'D'#39'C'#39
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- end
- object EqnList: TListBox
- Left = 228
- Top = 6
- Width = 250
- Height = 373
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ItemHeight = 14
- ParentFont = False
- Sorted = True
- TabOrder = 0
- OnClick = EqnListClick
- OnDblClick = EqnListDblClick
- end
- object ExitBtn1: TButton
- Left = 159
- Top = 6
- Width = 62
- Height = 27
- Caption = 'Exit'
- TabOrder = 1
- OnClick = ExitBtnClick
- end
- object AboutBtn1: TButton
- Left = 84
- Top = 6
- Width = 65
- Height = 27
- Caption = 'About'
- TabOrder = 2
- OnClick = AboutBtn2Click
- end
- object AddEqnBtn: TButton
- Left = 6
- Top = 342
- Width = 63
- Height = 27
- Caption = 'Add'
- TabOrder = 3
- OnClick = AddEqnBtnClick
- end
- object DeleteBtn: TButton
- Left = 152
- Top = 342
- Width = 65
- Height = 27
- Caption = 'Delete'
- TabOrder = 4
- OnClick = DeleteBtnClick
- end
- object EditBtn: TButton
- Left = 79
- Top = 342
- Width = 62
- Height = 27
- Caption = 'Edit'
- TabOrder = 5
- OnClick = EditBtnClick
- end
- object tt30: TPanel
- Left = 32
- Top = 154
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 6
- end
- object tt31: TPanel
- Left = 58
- Top = 154
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 7
- end
- object tt32: TPanel
- Left = 83
- Top = 154
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 8
- end
- object tt33: TPanel
- Left = 109
- Top = 154
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 9
- end
- object tt00: TPanel
- Left = 32
- Top = 77
- Width = 20
- Height = 20
- Caption = '0'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- ParentFont = False
- TabOrder = 10
- end
- object tt01: TPanel
- Left = 58
- Top = 77
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 11
- end
- object tt02: TPanel
- Left = 83
- Top = 77
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 12
- end
- object tt03: TPanel
- Left = 109
- Top = 77
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 13
- end
- object tt10: TPanel
- Left = 32
- Top = 102
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 14
- end
- object tt20: TPanel
- Left = 32
- Top = 128
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 15
- end
- object tt11: TPanel
- Left = 58
- Top = 102
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 16
- end
- object tt12: TPanel
- Left = 83
- Top = 102
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 17
- end
- object tt13: TPanel
- Left = 109
- Top = 102
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 18
- end
- object tt21: TPanel
- Left = 58
- Top = 128
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 19
- end
- object tt22: TPanel
- Left = 83
- Top = 128
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 20
- end
- object tt23: TPanel
- Left = 109
- Top = 128
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 21
- end
- object ctt00: TPanel
- Left = 32
- Top = 192
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 22
- end
- object ctt10: TPanel
- Left = 32
- Top = 218
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 23
- end
- object ctt20: TPanel
- Left = 32
- Top = 243
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 24
- end
- object ctt30: TPanel
- Left = 32
- Top = 269
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 25
- end
- object ctt01: TPanel
- Left = 58
- Top = 192
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 26
- end
- object ctt02: TPanel
- Left = 83
- Top = 192
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 27
- end
- object ctt03: TPanel
- Left = 109
- Top = 192
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 28
- end
- object ctt11: TPanel
- Left = 58
- Top = 218
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 29
- end
- object ctt12: TPanel
- Left = 83
- Top = 218
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 30
- end
- object ctt13: TPanel
- Left = 109
- Top = 218
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 31
- end
- object ctt21: TPanel
- Left = 58
- Top = 243
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 32
- end
- object ctt22: TPanel
- Left = 83
- Top = 243
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 33
- end
- object ctt23: TPanel
- Left = 109
- Top = 243
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 34
- end
- object ctt31: TPanel
- Left = 58
- Top = 269
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 35
- end
- object ctt32: TPanel
- Left = 83
- Top = 269
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 36
- end
- object ctt33: TPanel
- Left = 109
- Top = 269
- Width = 20
- Height = 20
- Caption = '0'
- TabOrder = 37
- end
- object PrintBtn: TButton
- Left = 8
- Top = 6
- Width = 65
- Height = 27
- Caption = 'Print'
- TabOrder = 38
- OnClick = PrintBtnClick
- end
- end
- object TTabPage
- Left = 5
- Top = 29
- Caption = 'Initialize'
- object InitInstrsLbl: TLabel
- Left = 48
- Top = 76
- Width = 413
- Height = 69
- AutoSize = False
- Caption =
- 'Click on each of the buttons below to toggle the value for a giv' +
- 'en logic variable. Variables A, B, C, and D are immutable since' +
- ' the program reads their values from a set of input switches. V' +
- 'alues W, X, Y, and Z are written to a set of LEDs. '
- WordWrap = True
- end
- object Instrs2: TLabel
- Left = 48
- Top = 140
- Width = 409
- Height = 37
- AutoSize = False
- Caption =
- 'Values E, F, G, H, I, J, and K are written to a seven-segment di' +
- 'splay.'
- WordWrap = True
- end
- object AInit: TGroupBox
- Left = 51
- Top = 192
- Width = 27
- Height = 33
- Caption = 'A'
- Color = clBtnFace
- ParentColor = False
- TabOrder = 0
- object AValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- Enabled = False
- end
- end
- object BInit: TGroupBox
- Left = 83
- Top = 192
- Width = 27
- Height = 33
- Caption = 'B'
- TabOrder = 1
- object BValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- Enabled = False
- end
- end
- object CInit: TGroupBox
- Left = 115
- Top = 192
- Width = 27
- Height = 33
- Caption = 'C'
- TabOrder = 2
- object CValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- Enabled = False
- end
- end
- object DInit: TGroupBox
- Left = 147
- Top = 192
- Width = 27
- Height = 33
- Caption = 'D'
- TabOrder = 3
- object DValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- Enabled = False
- end
- end
- object EInit: TGroupBox
- Left = 179
- Top = 192
- Width = 27
- Height = 33
- Caption = 'E'
- TabOrder = 4
- OnClick = InitClick
- object EValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object FInit: TGroupBox
- Left = 211
- Top = 192
- Width = 27
- Height = 33
- Caption = 'F'
- TabOrder = 5
- OnClick = InitClick
- object FValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object KInit: TGroupBox
- Left = 371
- Top = 192
- Width = 27
- Height = 33
- Caption = 'K'
- TabOrder = 6
- OnClick = InitClick
- object KValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object Jinit: TGroupBox
- Left = 339
- Top = 192
- Width = 27
- Height = 33
- Caption = 'J'
- TabOrder = 7
- OnClick = InitClick
- object JValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object GInit: TGroupBox
- Left = 243
- Top = 192
- Width = 27
- Height = 33
- Caption = 'G'
- TabOrder = 8
- OnClick = InitClick
- object GValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object Hinit: TGroupBox
- Left = 275
- Top = 192
- Width = 27
- Height = 33
- Caption = 'H'
- TabOrder = 9
- OnClick = InitClick
- object HValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object IInit: TGroupBox
- Left = 307
- Top = 192
- Width = 27
- Height = 33
- Caption = 'I'
- TabOrder = 10
- OnClick = InitClick
- object IValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object LInit: TGroupBox
- Left = 403
- Top = 192
- Width = 27
- Height = 33
- Caption = 'L'
- TabOrder = 11
- OnClick = InitClick
- object LValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object MInit: TGroupBox
- Left = 435
- Top = 192
- Width = 27
- Height = 33
- Caption = 'M'
- TabOrder = 12
- OnClick = InitClick
- object MValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object NInit: TGroupBox
- Left = 51
- Top = 243
- Width = 27
- Height = 33
- Caption = 'N'
- TabOrder = 13
- OnClick = InitClick
- object NValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object OInit: TGroupBox
- Left = 83
- Top = 243
- Width = 27
- Height = 33
- Caption = 'O'
- TabOrder = 14
- OnClick = InitClick
- object OValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object QInit: TGroupBox
- Left = 147
- Top = 243
- Width = 27
- Height = 33
- Caption = 'Q'
- TabOrder = 15
- OnClick = InitClick
- object QValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object RInit: TGroupBox
- Left = 179
- Top = 243
- Width = 27
- Height = 33
- Caption = 'R'
- TabOrder = 16
- OnClick = InitClick
- object RValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object SInit: TGroupBox
- Left = 211
- Top = 243
- Width = 27
- Height = 33
- Caption = 'S'
- TabOrder = 17
- OnClick = InitClick
- object SValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object TInit: TGroupBox
- Left = 243
- Top = 243
- Width = 27
- Height = 33
- Caption = 'T'
- TabOrder = 18
- OnClick = InitClick
- object TValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object UInit: TGroupBox
- Left = 275
- Top = 243
- Width = 27
- Height = 33
- Caption = 'U'
- TabOrder = 19
- OnClick = InitClick
- object UValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object PInit: TGroupBox
- Left = 115
- Top = 243
- Width = 27
- Height = 33
- Caption = 'P'
- TabOrder = 20
- OnClick = InitClick
- object PValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- end
- end
- object VInit: TGroupBox
- Left = 307
- Top = 243
- Width = 27
- Height = 33
- Caption = 'V'
- TabOrder = 21
- OnClick = InitClick
- object VValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object WInit: TGroupBox
- Left = 339
- Top = 243
- Width = 27
- Height = 33
- Caption = 'W'
- TabOrder = 22
- OnClick = InitClick
- object WValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object XInit: TGroupBox
- Left = 371
- Top = 243
- Width = 27
- Height = 33
- Caption = 'X'
- TabOrder = 23
- OnClick = InitClick
- object XValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object YInit: TGroupBox
- Left = 403
- Top = 243
- Width = 27
- Height = 33
- Caption = 'Y'
- TabOrder = 24
- OnClick = InitClick
- object YValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object ZInit: TGroupBox
- Left = 435
- Top = 243
- Width = 27
- Height = 33
- Caption = 'Z'
- TabOrder = 25
- OnClick = InitClick
- object ZValue: TLabel
- Left = 10
- Top = 13
- Width = 8
- Height = 16
- Alignment = taCenter
- Caption = '0'
- OnClick = ValueClick
- end
- end
- object Exit: TButton
- Left = 390
- Top = 32
- Width = 72
- Height = 26
- Caption = 'Exit'
- TabOrder = 26
- OnClick = ExitBtnClick
- end
- object AboutBtn3: TButton
- Left = 294
- Top = 32
- Width = 72
- Height = 26
- Caption = 'About'
- TabOrder = 27
- OnClick = AboutBtn2Click
- end
- object PrintBtn2: TButton
- Left = 202
- Top = 32
- Width = 71
- Height = 27
- Caption = 'Print'
- TabOrder = 28
- OnClick = PrintBtnClick
- end
- end
- object TTabPage
- Left = 5
- Top = 29
- Caption = 'Execute'
- object W: TShape
- Left = 19
- Top = 120
- Width = 20
- Height = 20
- Pen.Width = 4
- Shape = stCircle
- end
- object X: TShape
- Left = 51
- Top = 120
- Width = 20
- Height = 20
- Pen.Width = 4
- Shape = stCircle
- end
- object Y: TShape
- Left = 83
- Top = 120
- Width = 20
- Height = 20
- Pen.Width = 4
- Shape = stCircle
- end
- object Z: TShape
- Left = 115
- Top = 120
- Width = 20
- Height = 20
- Pen.Width = 4
- Shape = stCircle
- end
- object WLbl: TLabel
- Left = 22
- Top = 143
- Width = 14
- Height = 16
- Caption = 'W'
- end
- object XLbl: TLabel
- Left = 56
- Top = 143
- Width = 9
- Height = 16
- Caption = 'X'
- end
- object YLbl: TLabel
- Left = 88
- Top = 143
- Width = 10
- Height = 16
- Caption = 'Y'
- end
- object ZLbl: TLabel
- Left = 120
- Top = 143
- Width = 9
- Height = 16
- Caption = 'Z'
- end
- object A: TBiSwitch
- Left = 103
- Top = 196
- Width = 33
- Height = 73
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'A'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 0
- OnOn = AOn
- OnOff = AOff
- end
- object B: TBiSwitch
- Left = 70
- Top = 202
- Width = 33
- Height = 67
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'B'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 1
- OnOn = BOn
- OnOff = BOff
- end
- object C: TBiSwitch
- Left = 38
- Top = 202
- Width = 33
- Height = 67
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'C'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 2
- OnOn = COn
- OnOff = COff
- end
- object D: TBiSwitch
- Left = 5
- Top = 202
- Width = 33
- Height = 67
- ForeColor = clBlack
- BackColor = clBtnFace
- Caption = 'D'
- pOn = False
- TextPosition = 2
- TabStop = True
- TabOrder = 3
- OnOn = DOn
- OnOff = DOff
- end
- object SevenSeg: TPanel
- Left = 159
- Top = 88
- Width = 46
- Height = 84
- TabOrder = 4
- object E: TShape
- Left = 13
- Top = 6
- Width = 20
- Height = 8
- Brush.Color = clSilver
- end
- object F: TShape
- Left = 6
- Top = 13
- Width = 8
- Height = 26
- Brush.Color = clSilver
- end
- object G: TShape
- Left = 32
- Top = 13
- Width = 7
- Height = 26
- Brush.Color = clSilver
- end
- object I: TShape
- Left = 6
- Top = 45
- Width = 8
- Height = 26
- Brush.Color = clSilver
- end
- object J: TShape
- Left = 32
- Top = 45
- Width = 7
- Height = 26
- Brush.Color = clSilver
- end
- object H: TShape
- Left = 13
- Top = 38
- Width = 20
- Height = 8
- Brush.Color = clSilver
- end
- object K: TShape
- Left = 13
- Top = 70
- Width = 20
- Height = 8
- Brush.Color = clSilver
- end
- end
- object PulseBtn: TBitBtn
- Left = 143
- Top = 220
- Width = 74
- Height = 49
- Caption = 'Pulse'
- TabOrder = 5
- OnClick = PulseBtnClick
- Glyph.Data = {
- 80010000424D8001000000000000760000002800000014000000140000000100
- 040000000000F000000000000000000000000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00000000000000
- 0000000000000111111111111111111000000111111111111111111000000111
- 111111111111111000000111111111111111111000000EEEEEEE1111EEEEE110
- 00000BBBBBBE111BBBBBB1100000011111BE111BE11111100000011111BE111B
- E11111100000011111BE111BE11111100000011111BE111BE111111000000111
- 11BEEEEBE11111100000011111BBBBBB11111110000001111111111111111110
- 0000011111111111111111100000011111111111111111100000011111111111
- 1111111000000111111111111111111000000111111111111111111000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 00000000}
- end
- object ExecVariables: TStringGrid
- Left = 9
- Top = 332
- Width = 460
- Height = 41
- ColCount = 27
- DefaultColWidth = 16
- DefaultRowHeight = 18
- FixedCols = 0
- FixedRows = 0
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- RowCount = 2
- ScrollBars = ssNone
- TabOrder = 6
- end
- object ExitBtn: TButton
- Left = 147
- Top = 8
- Width = 64
- Height = 26
- Caption = 'Exit'
- TabOrder = 7
- OnClick = ExitBtnClick
- end
- object AboutBtn2: TButton
- Left = 75
- Top = 8
- Width = 64
- Height = 26
- Caption = 'About'
- TabOrder = 8
- OnClick = AboutBtn2Click
- end
- object PrintBtn3: TButton
- Left = 5
- Top = 8
- Width = 64
- Height = 26
- Caption = 'Print'
- TabOrder = 9
- OnClick = PrintBtnClick
- end
- object InstabilityAnnunc: TPanel
- Left = 8
- Top = 286
- Width = 209
- Height = 41
- Caption = 'Instability'
- Color = clGray
- TabOrder = 10
- end
- object ExecEqns: TMemo
- Left = 224
- Top = 8
- Width = 255
- Height = 319
- Font.Color = clBlack
- Font.Height = -11
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ReadOnly = True
- ScrollBars = ssHorizontal
- TabOrder = 11
- WordWrap = False
- end
- end
- end
- object PrintDialog: TPrintDialog
- Left = 457
- Top = 7
- end
- end
-